home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_RandomPlay-Toggle.rexx < prev    next >
OS/2 REXX Batch file  |  1993-10-20  |  223b  |  16 lines
  1. /* EaglePlayer - toggles RandomPlay */
  2.  
  3. address 'rexx_EP'
  4.  
  5. options results
  6. status G rnd
  7.  
  8. if result == "no" then do
  9.     RandomPlay yes
  10.     say "RandomPlay is now on !"
  11. end
  12. else do
  13.     RandomPlay no
  14.     say "RandomPlay is now off !"
  15. end
  16.